home *** CD-ROM | disk | FTP | other *** search
- VERSION 2.00
- Begin Form Form1
- BorderStyle = 1 'Fixed Single
- Caption = "Picture Viewer"
- ClientHeight = 5985
- ClientLeft = 330
- ClientTop = 1065
- ClientWidth = 8700
- ControlBox = 0 'False
- Height = 6675
- Icon = PICTURE.FRX:0000
- Left = 270
- LinkTopic = "Form1"
- MaxButton = 0 'False
- ScaleHeight = 5985
- ScaleWidth = 8700
- Top = 435
- Width = 8820
- Begin PictureBox Open
- Height = 5055
- Left = 2880
- ScaleHeight = 5025
- ScaleWidth = 5625
- TabIndex = 4
- Top = 360
- Width = 5655
- End
- Begin FileListBox File1
- Height = 2565
- Left = 120
- Pattern = "*.BMP;*.WMF;*.ICO"
- TabIndex = 2
- Top = 3360
- Width = 2655
- End
- Begin DirListBox Dir1
- BackColor = &H00FFFFFF&
- FontBold = -1 'True
- FontItalic = -1 'True
- FontName = "MS Sans Serif"
- FontSize = 8.25
- FontStrikethru = 0 'False
- FontUnderline = 0 'False
- ForeColor = &H00000000&
- Height = 2280
- Left = 120
- TabIndex = 1
- Top = 840
- Width = 2655
- End
- Begin DriveListBox Drive1
- FontBold = -1 'True
- FontItalic = 0 'False
- FontName = "MS Sans Serif"
- FontSize = 9.75
- FontStrikethru = 0 'False
- FontUnderline = 0 'False
- Height = 360
- Left = 120
- TabIndex = 0
- Top = 360
- Width = 2655
- End
- Begin Label Label1
- BorderStyle = 1 'Fixed Single
- Height = 375
- Left = 2880
- TabIndex = 3
- Top = 5520
- Width = 5655
- End
- Begin Menu mnuFile
- Caption = "&File"
- Begin Menu mnuMenu
- Caption = "&About"
- Index = 0
- End
- Begin Menu mnuMenu
- Caption = "-"
- Index = 1
- End
- Begin Menu mnuMenu
- Caption = "E&xit"
- Index = 2
- End
- End
- Sub Dir1_Change ()
- File1.Path = Dir1.Path 'Update Files
- End Sub
- Sub Drive1_Change ()
- Dir1.Path = Drive1.Drive 'Update directory path
- End Sub
- Sub File1_DblClick ()
- If Right(File1.Path, 1) <> "\" Then
- Label1.Caption = File1.Path & "\" & File1.FileName
- Else 'If Root DIR
- Label1.Caption = File1.Path & File1.FileName
- End If
- Form1.Open.Picture = LoadPicture(Label1.Caption)
- End Sub
- Sub mnuMenu_Click (Index As Integer)
- Select Case Index
- Case 0
- 'Display Pop-Up Menu
- Form2.Show
- Case 1
- Case 2
- 'Display Registration Delay
- End
- End Select
- End Sub
-